home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / indx18eu.zip / HEXTEST.PAS < prev    next >
Pascal/Delphi Source File  |  1991-03-15  |  849b  |  38 lines
  1. PROGRAM HexTest ;
  2.  
  3. USES
  4.         AsmRoutines ,
  5.         CRT ;
  6.  
  7. TYPE
  8.        ByteArray                                 = ARRAY [ 1 .. 30 ]
  9.                                                         OF BYTE ;
  10.  
  11. VAR
  12.        i                                         : LONGINT ;
  13.        b                                         : ByteArray ;
  14.        r                                         : REAL ;
  15.  
  16. BEGIN
  17.  
  18.   FOR i := -3 TO 3
  19.    DO
  20.       WriteLn ( i:3 , ' is ' , HexStr ( i , SizeOf ( i ) ) , ' hex.' ) ;
  21.  
  22.   FOR i := 1 TO 30
  23.    DO
  24.       b [ i ] := Random ( 256 ) ;       {  0 .. 255  }
  25.  
  26.   WriteLn ( HexStr ( b , SizeOf ( b ) ) ) ;
  27.  
  28.   r := -500.4567 ;
  29.  
  30.   WriteLn ( r:10:4 , ' is equal to ' , HexStr ( r , SizeOf ( r ) ) ) ;
  31.  
  32.   r := 500.4567 ;
  33.  
  34.   WriteLn ( r:10:4 , ' is equal to ' , HexStr ( r , SizeOf ( r ) ) ) ;
  35.  
  36. END .
  37.  
  38.